home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / giochi / soliton / extras / reko2soliton.ifx < prev    next >
Text File  |  1999-01-01  |  1KB  |  88 lines
  1. /* Convert Reko cardsets to Soliton */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. GetMain
  6. IF rc ~= 0 THEN EXIT
  7. PARSE VAR result name width height depth .
  8.  
  9. Redraw Off
  10. Undo Off
  11.  
  12. If height > 520 then do
  13.     setpalette '-1' 0 0 0
  14.     swap
  15.     createbuffer 1232 520 force
  16.     REDRAW
  17.     setpalette '-1' 24 90 148
  18.     SWAP
  19.  
  20.     do y = 0 to 3
  21.         do x = 0 to 12
  22.             Scissors 
  23.             Box 90*x+2 131*y+1 88 130
  24.             Swap
  25.             BrushHandle 0 0
  26.             Point x*88 y*130
  27.             redraw x*88 y*130 88 130
  28.             Swap
  29.         end
  30.     end
  31.  
  32.     if width > 1300 then do
  33.         Scissors
  34.         Box 1352 132 88 130
  35.         Swap
  36.         BrushHandle 0 0
  37.         Point 1144 0
  38.         Redraw 1144 0 88 130
  39.         Swap
  40.  
  41.         Scissors
  42.         Box 1262 132 88 130
  43.         Swap
  44.         BrushHandle 0 0
  45.         Point 1144 130
  46.         Redraw 1144 130 88 130
  47.     end
  48.     else do
  49.         Scissors
  50.         Box 1172 132 88 130
  51.         Swap
  52.         BrushHandle 0 0
  53.         Point 1144 0
  54.         Redraw 1144 0 88 130
  55.         Swap
  56.  
  57.         Scissors
  58.         Box 1172 263 88 130
  59.         Swap
  60.         BrushHandle 0 0
  61.         Point 1144 130
  62.         Redraw 1144 130 88 130
  63.     end
  64.  
  65.     killswap
  66.     killbrush
  67. end
  68. else do
  69.     Scissors 
  70.     Box 1144 390 88 130
  71.     BrushHandle 0 0
  72.     Point 1144 0
  73.     Redraw 1144 0 88 130
  74.  
  75.     Scissors 
  76.     Box 1144 260 88 130
  77.     BrushHandle 0 0
  78.     Point 1144 130
  79.     Redraw 1144 130 88 130
  80.  
  81.     killbrush
  82.  
  83.     Crop 0 0 1232 520
  84. end
  85.  
  86. Undo On
  87. Redraw On
  88.